home *** CD-ROM | disk | FTP | other *** search
/ New Star Software Collection / NSS_Collection.iso / 5-029 turbo debugger and assem / disks.7z / 3 / CHAPXMPL.ARC / HEXTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-29  |  246 b   |  16 lines
  1. program HexTest;
  2. var
  3.   num : word;
  4.  
  5. {$F+}
  6.  
  7. function HexStr (var num; byteCount : byte) : string; external;
  8.  
  9. {$L HEXSTR.OBJ}
  10.  
  11. {$F-}
  12. begin
  13.   num := $face;
  14.   Writeln('The Converted Hex String is "',HexStr(num,sizeof(num)),'"');
  15. end.
  16.